PC Media 20/PC MEDIA CD20.iso/share/os2/uguess/uguessit.pnl

Text File | 1994-03-27 | 18KB | 561 lines

)PANEL NAME=UGITINIT CLS=Y XID=(ZNONE) AID=(ZNONE)
%sWinTitle                                                                      +

                                     Number of hits:

                          Correct Position     Incorrect Position
)END )NOWAIT )NODISPLAY

)PANEL NAME=UGITRESET XID=(ZNONE) AID=(ZNONE)
)VARS iGuess
%sWinTitle                                                                      +
)ROW 6
 Guess # %*+..:                                                                +
)BLANK
)BLANK
)BLANK
)BLANK
)BLANK
)BLANK
)BLANK
)BLANK
)BLANK
)ROW 22
)BLANK
)BLANK
)BLANK
)END )NOWAIT )NODISPLAY

)PANEL NAME=UGITSCROLL XID=(ZNONE) AID=(ZNONE)
)COLORS OUTPUT=LBLUE
)ROW 18
 %sScrlMsg.1                                                                   +
 %sScrlMsg.2                                                                   +
 %sScrlMsg.3                                                                   +
 %sScrlMsg.4                                                                   +
)END )NOWAIT

)PANEL NAME=UGIT0001 XID=(ZF3,Z_S_A,Z_U_A) AID=(ZENTER,ZF1)
)VARS iGuess iG.1 iG.2 iG.3 iG.4
)ROW 6
 Guess # %*+..: _+_+_+_+
)PROC

  /* The following defines the possible return codes */
  Call rxPDZVarDefine 'ZVERIFYPROC_RC_NORETURN', 'ZF1', 'ZENTER'

  if ZKey = ZF1 then
   do
    svid = rxPDSaveScreen(ZBid)
    akey = ZENTER
    iHLP= 1
    iHLPMax = 2
    do while akey = ZENTER & iHLP <= iHLPMax
     akey = rxPDDisplay(zBID,'UGITH00'iHLP)
     iHLP=iHLP+1
    end /* do while akey = ZENTER */
    rc = rxPDRestoreScreen(ZBid,svid)
    return ZVERIFYPROC_RC_NORETURN
   end

  do i = 1 to 4
   if '' = iG.i then
    do
     rc = rxPDSetMsgText(ZBid,'UGIT001E ', ' << Required Field>> ',,'1')
     Call rxPDSetCursorFld ZBid, ZPName, 'iG.'||i
     return ZVERIFYPROC_RC_NORETURN
    end
   if 'NUM' <> DATATYPE(iG.i) then
    do
     rc = rxPDSetMsgText(ZBid,'UGIT002E ','Non-numeric guess "'STRIP(iG.i)'"',,'1')
     Call rxPDSetCursorFld ZBid, ZPName, 'iG.'||i
     return ZVERIFYPROC_RC_NORETURN
    end
  end
  return ZKey
)END )BLANK FLDS="<F1=Help F3=Exit ENTER=Guess>"

)PANEL NAME=UGIT0002 XID=(ZF1,ZF3,Z_S_A,Z_U_A) AID=(ZENTER)
)VARS iGuess iG.1 iG.2 iG.3 iG.4
)ROW 7
 Guess # %*+..: _+_+_+_+
)PROC

  /* The following defines the possible return codes */
  Call rxPDZVarDefine 'ZVERIFYPROC_RC_NORETURN', 'ZF1', 'ZENTER'

  if ZKey = ZF1 then
   do
    svid = rxPDSaveScreen(ZBid)
    akey = ZENTER
    iHLP= 1
    iHLPMax = 2
    do while akey = ZENTER & iHLP <= iHLPMax
     akey = rxPDDisplay(zBID,'UGITH00'iHLP)
     iHLP=iHLP+1
    end /* do while akey = ZENTER */
    rc = rxPDRestoreScreen(ZBid,svid)
    return ZVERIFYPROC_RC_NORETURN
   end

  do i = 1 to 4
   if '' = iG.i then
    do
     rc = rxPDSetMsgText(ZBid,'UGIT001E ', ' << Required Field>> ',,'1')
     Call rxPDSetCursorFld ZBid, ZPName, 'iG.'||i
     return ZVERIFYPROC_RC_NORETURN
    end
   if 'NUM' <> DATATYPE(iG.i) then
    do
     rc = rxPDSetMsgText(ZBid,'UGIT002E ','Non-numeric guess "'STRIP(iG.i)'"',,'1')
     Call rxPDSetCursorFld ZBid, ZPName, 'iG.'||i
     return ZVERIFYPROC_RC_NORETURN
    end
  end
  return ZKey
)END )BLANK FLDS="<F1=Help F3=Exit ENTER=Guess>"

)PANEL NAME=UGIT0003 XID=(ZF1,ZF3,Z_S_A,Z_U_A) AID=(ZENTER)
)VARS iGuess iG.1 iG.2 iG.3 iG.4
)ROW 8
 Guess # %*+..: _+_+_+_+
)PROC

  /* The following defines the possible return codes */
  Call rxPDZVarDefine 'ZVERIFYPROC_RC_NORETURN', 'ZF1', 'ZENTER'

  if ZKey = ZF1 then
   do
    svid = rxPDSaveScreen(ZBid)
    akey = ZENTER
    iHLP= 1
    iHLPMax = 2
    do while akey = ZENTER & iHLP <= iHLPMax
     akey = rxPDDisplay(zBID,'UGITH00'iHLP)
     iHLP=iHLP+1
    end /* do while akey = ZENTER */
    rc = rxPDRestoreScreen(ZBid,svid)
    return ZVERIFYPROC_RC_NORETURN
   end

  do i = 1 to 4
   if '' = iG.i then
    do
     rc = rxPDSetMsgText(ZBid,'UGIT001E ', ' << Required Field>> ',,'1')
     Call rxPDSetCursorFld ZBid, ZPName, 'iG.'||i
     return ZVERIFYPROC_RC_NORETURN
    end
   if 'NUM' <> DATATYPE(iG.i) then
    do
     rc = rxPDSetMsgText(ZBid,'UGIT002E ','Non-numeric guess "'STRIP(iG.i)'"',,'1')
     Call rxPDSetCursorFld ZBid, ZPName, 'iG.'||i
     return ZVERIFYPROC_RC_NORETURN
    end
  end
  return ZKey
)END )BLANK FLDS="<F1=Help F3=Exit ENTER=Guess>"

)PANEL NAME=UGIT0004 XID=(ZF1,ZF3,Z_S_A,Z_U_A) AID=(ZENTER)
)VARS iGuess iG.1 iG.2 iG.3 iG.4
)ROW 9
 Guess # %*+..: _+_+_+_+
)PROC

  /* The following defines the possible return codes */
  Call rxPDZVarDefine 'ZVERIFYPROC_RC_NORETURN', 'ZF1', 'ZENTER'

  if ZKey = ZF1 then
   do
    svid = rxPDSaveScreen(ZBid)
    akey = ZENTER
    iHLP= 1
    iHLPMax = 2
    do while akey = ZENTER & iHLP <= iHLPMax
     akey = rxPDDisplay(zBID,'UGITH00'iHLP)
     iHLP=iHLP+1
    end /* do while akey = ZENTER */
    rc = rxPDRestoreScreen(ZBid,svid)
    return ZVERIFYPROC_RC_NORETURN
   end

  do i = 1 to 4
   if '' = iG.i then
    do
     rc = rxPDSetMsgText(ZBid,'UGIT001E ', ' << Required Field>> ',,'1')
     Call rxPDSetCursorFld ZBid, ZPName, 'iG.'||i
     return ZVERIFYPROC_RC_NORETURN
    end
   if 'NUM' <> DATATYPE(iG.i) then
    do
     rc = rxPDSetMsgText(ZBid,'UGIT002E ','Non-numeric guess "'STRIP(iG.i)'"',,'1')
     Call rxPDSetCursorFld ZBid, ZPName, 'iG.'||i
     return ZVERIFYPROC_RC_NORETURN
    end
  end
  return ZKey
)END )BLANK FLDS="<F1=Help F3=Exit ENTER=Guess>"

)PANEL NAME=UGIT0005 XID=(ZF1,ZF3,Z_S_A,Z_U_A) AID=(ZENTER)
)VARS iGuess iG.1 iG.2 iG.3 iG.4
)ROW 10
 Guess # %*+..: _+_+_+_+
)PROC

  /* The following defines the possible return codes */
  Call rxPDZVarDefine 'ZVERIFYPROC_RC_NORETURN', 'ZF1', 'ZENTER'

  if ZKey = ZF1 then
   do
    svid = rxPDSaveScreen(ZBid)
    akey = ZENTER
    iHLP= 1
    iHLPMax = 2
    do while akey = ZENTER & iHLP <= iHLPMax
     akey = rxPDDisplay(zBID,'UGITH00'iHLP)
     iHLP=iHLP+1
    end /* do while akey = ZENTER */
    rc = rxPDRestoreScreen(ZBid,svid)
    return ZVERIFYPROC_RC_NORETURN
   end

  do i = 1 to 4
   if '' = iG.i then
    do
     rc = rxPDSetMsgText(ZBid,'UGIT001E ', ' << Required Field>> ',,'1')
     Call rxPDSetCursorFld ZBid, ZPName, 'iG.'||i
     return ZVERIFYPROC_RC_NORETURN
    end
   if 'NUM' <> DATATYPE(iG.i) then
    do
     rc = rxPDSetMsgText(ZBid,'UGIT002E ','Non-numeric guess "'STRIP(iG.i)'"',,'1')
     Call rxPDSetCursorFld ZBid, ZPName, 'iG.'||i
     return ZVERIFYPROC_RC_NORETURN
    end
  end
  return ZKey
)END )BLANK FLDS="<F1=Help F3=Exit ENTER=Guess>"

)PANEL NAME=UGIT0006 XID=(ZF1,ZF3,Z_S_A,Z_U_A) AID=(ZENTER)
)VARS iGuess iG.1 iG.2 iG.3 iG.4
)ROW 11
 Guess # %*+..: _+_+_+_+
)PROC

  /* The following defines the possible return codes */
  Call rxPDZVarDefine 'ZVERIFYPROC_RC_NORETURN', 'ZF1', 'ZENTER'

  if ZKey = ZF1 then
   do
    svid = rxPDSaveScreen(ZBid)
    akey = ZENTER
    iHLP= 1
    iHLPMax = 2
    do while akey = ZENTER & iHLP <= iHLPMax
     akey = rxPDDisplay(zBID,'UGITH00'iHLP)
     iHLP=iHLP+1
    end /* do while akey = ZENTER */
    rc = rxPDRestoreScreen(ZBid,svid)
    return ZVERIFYPROC_RC_NORETURN
   end

  do i = 1 to 4
   if '' = iG.i then
    do
     rc = rxPDSetMsgText(ZBid,'UGIT001E ', ' << Required Field>> ',,'1')
     Call rxPDSetCursorFld ZBid, ZPName, 'iG.'||i
     return ZVERIFYPROC_RC_NORETURN
    end
   if 'NUM' <> DATATYPE(iG.i) then
    do
     rc = rxPDSetMsgText(ZBid,'UGIT002E ','Non-numeric guess "'STRIP(iG.i)'"',,'1')
     Call rxPDSetCursorFld ZBid, ZPName, 'iG.'||i
     return ZVERIFYPROC_RC_NORETURN
    end
  end
  return ZKey
)END )BLANK FLDS="<F1=Help F3=Exit ENTER=Guess>"

)PANEL NAME=UGIT0007 XID=(ZF1,ZF3,Z_S_A,Z_U_A) AID=(ZENTER)
)VARS iGuess iG.1 iG.2 iG.3 iG.4
)ROW 12
 Guess # %*+..: _+_+_+_+
)PROC

  /* The following defines the possible return codes */
  Call rxPDZVarDefine 'ZVERIFYPROC_RC_NORETURN', 'ZF1', 'ZENTER'

  if ZKey = ZF1 then
   do
    svid = rxPDSaveScreen(ZBid)
    akey = ZENTER
    iHLP= 1
    iHLPMax = 2
    do while akey = ZENTER & iHLP <= iHLPMax
     akey = rxPDDisplay(zBID,'UGITH00'iHLP)
     iHLP=iHLP+1
    end /* do while akey = ZENTER */
    rc = rxPDRestoreScreen(ZBid,svid)
    return ZVERIFYPROC_RC_NORETURN
   end

  do i = 1 to 4
   if '' = iG.i then
    do
     rc = rxPDSetMsgText(ZBid,'UGIT001E ', ' << Required Field>> ',,'1')
     Call rxPDSetCursorFld ZBid, ZPName, 'iG.'||i
     return ZVERIFYPROC_RC_NORETURN
    end
   if 'NUM' <> DATATYPE(iG.i) then
    do
     rc = rxPDSetMsgText(ZBid,'UGIT002E ','Non-numeric guess "'STRIP(iG.i)'"',,'1')
     Call rxPDSetCursorFld ZBid, ZPName, 'iG.'||i
     return ZVERIFYPROC_RC_NORETURN
    end
  end
  return ZKey
)END )BLANK FLDS="<F1=Help F3=Exit ENTER=Guess>"

)PANEL NAME=UGIT0008 XID=(ZF1,ZF3,Z_S_A,Z_U_A) AID=(ZENTER)
)VARS iGuess iG.1 iG.2 iG.3 iG.4
)ROW 13
 Guess # %*+..: _+_+_+_+
)PROC

  /* The following defines the possible return codes */
  Call rxPDZVarDefine 'ZVERIFYPROC_RC_NORETURN', 'ZF1', 'ZENTER'

  if ZKey = ZF1 then
   do
    svid = rxPDSaveScreen(ZBid)
    akey = ZENTER
    iHLP= 1
    iHLPMax = 2
    do while akey = ZENTER & iHLP <= iHLPMax
     akey = rxPDDisplay(zBID,'UGITH00'iHLP)
     iHLP=iHLP+1
    end /* do while akey = ZENTER */
    rc = rxPDRestoreScreen(ZBid,svid)
    return ZVERIFYPROC_RC_NORETURN
   end

  do i = 1 to 4
   if '' = iG.i then
    do
     rc = rxPDSetMsgText(ZBid,'UGIT001E ', ' << Required Field>> ',,'1')
     Call rxPDSetCursorFld ZBid, ZPName, 'iG.'||i
     return ZVERIFYPROC_RC_NORETURN
    end
   if 'NUM' <> DATATYPE(iG.i) then
    do
     rc = rxPDSetMsgText(ZBid,'UGIT002E ','Non-numeric guess "'STRIP(iG.i)'"',,'1')
     Call rxPDSetCursorFld ZBid, ZPName, 'iG.'||i
     return ZVERIFYPROC_RC_NORETURN
    end
  end
  return ZKey
)END )BLANK FLDS="<F1=Help F3=Exit ENTER=Guess>"

)PANEL NAME=UGIT0009 XID=(ZF1,ZF3,Z_S_A,Z_U_A) AID=(ZENTER)
)VARS iGuess iG.1 iG.2 iG.3 iG.4
)ROW 14
 Guess # %*+..: _+_+_+_+
)PROC

  /* The following defines the possible return codes */
  Call rxPDZVarDefine 'ZVERIFYPROC_RC_NORETURN', 'ZF1', 'ZENTER'

  if ZKey = ZF1 then
   do
    svid = rxPDSaveScreen(ZBid)
    akey = ZENTER
    iHLP= 1
    iHLPMax = 2
    do while akey = ZENTER & iHLP <= iHLPMax
     akey = rxPDDisplay(zBID,'UGITH00'iHLP)
     iHLP=iHLP+1
    end /* do while akey = ZENTER */
    rc = rxPDRestoreScreen(ZBid,svid)
    return ZVERIFYPROC_RC_NORETURN
   end

  do i = 1 to 4
   if '' = iG.i then
    do
     rc = rxPDSetMsgText(ZBid,'UGIT001E ', ' << Required Field>> ',,'1')
     Call rxPDSetCursorFld ZBid, ZPName, 'iG.'||i
     return ZVERIFYPROC_RC_NORETURN
    end
   if 'NUM' <> DATATYPE(iG.i) then
    do
     rc = rxPDSetMsgText(ZBid,'UGIT002E ','Non-numeric guess "'STRIP(iG.i)'"',,'1')
     Call rxPDSetCursorFld ZBid, ZPName, 'iG.'||i
     return ZVERIFYPROC_RC_NORETURN
    end
  end
  return ZKey
)END )BLANK FLDS="<F1=Help F3=Exit ENTER=Guess>"

)PANEL NAME=UGIT0010 XID=(ZF1,ZF3,Z_S_A,Z_U_A) AID=(ZENTER)
)VARS iGuess iG.1 iG.2 iG.3 iG.4
)ROW 15
 Guess # %*+..: _+_+_+_+
)PROC

  /* The following defines the possible return codes */
  Call rxPDZVarDefine 'ZVERIFYPROC_RC_NORETURN', 'ZF1', 'ZENTER'

  if ZKey = ZF1 then
   do
    svid = rxPDSaveScreen(ZBid)
    akey = ZENTER
    iHLP= 1
    iHLPMax = 2
    do while akey = ZENTER & iHLP <= iHLPMax
     akey = rxPDDisplay(zBID,'UGITH00'iHLP)
     iHLP=iHLP+1
    end /* do while akey = ZENTER */
    rc = rxPDRestoreScreen(ZBid,svid)
    return ZVERIFYPROC_RC_NORETURN
   end

  do i = 1 to 4
   if '' = iG.i then
    do
     rc = rxPDSetMsgText(ZBid,'UGIT001E ', ' << Required Field>> ',,'1')
     Call rxPDSetCursorFld ZBid, ZPName, 'iG.'||i
     return ZVERIFYPROC_RC_NORETURN
    end
   if 'NUM' <> DATATYPE(iG.i) then
    do
     rc = rxPDSetMsgText(ZBid,'UGIT002E ','Non-numeric guess "'STRIP(iG.i)'"',,'1')
     Call rxPDSetCursorFld ZBid, ZPName, 'iG.'||i
     return ZVERIFYPROC_RC_NORETURN
    end
  end
  return ZKey
)END )BLANK FLDS="<F1=Help F3=Exit ENTER=Guess>"

)PANEL NAME=UGITHIT0001 XID=(ZNONE) AID=(ZNONE)
)VARS iA.1 iA.2
)ROW 6 33 FLDS=" %+                    %+"
)END )NOWAIT )NODISPLAY

)PANEL NAME=UGITHIT0002 XID=(ZNONE) AID=(ZNONE)
)VARS iA.1 iA.2
)ROW 7 33 FLDS=" %+                    %+"
)END )NOWAIT )NODISPLAY

)PANEL NAME=UGITHIT0003 XID=(ZNONE) AID=(ZNONE)
)VARS iA.1 iA.2
)ROW 8 33 FLDS=" %+                    %+"
)END )NOWAIT )NODISPLAY

)PANEL NAME=UGITHIT0004 XID=(ZNONE) AID=(ZNONE)
)VARS iA.1 iA.2
)ROW 9 33 FLDS=" %+                    %+"
)END )NOWAIT )NODISPLAY

)PANEL NAME=UGITHIT0005 XID=(ZNONE) AID=(ZNONE)
)VARS iA.1 iA.2
)ROW 10 33 FLDS=" %+                    %+"
)END )NOWAIT )NODISPLAY

)PANEL NAME=UGITHIT0006 XID=(ZNONE) AID=(ZNONE)
)VARS iA.1 iA.2
)ROW 11 33 FLDS=" %+                    %+"
)END )NOWAIT )NODISPLAY

)PANEL NAME=UGITHIT0007 XID=(ZNONE) AID=(ZNONE)
)VARS iA.1 iA.2
)ROW 12 33 FLDS=" %+                    %+"
)END )NOWAIT )NODISPLAY

)PANEL NAME=UGITHIT0008 XID=(ZNONE) AID=(ZNONE)
)VARS iA.1 iA.2
)ROW 13 33 FLDS=" %+                    %+"
)END )NOWAIT )NODISPLAY

)PANEL NAME=UGITHIT0009 XID=(ZNONE) AID=(ZNONE)
)VARS iA.1 iA.2
)ROW 14 33 FLDS=" %+                    %+"
)END )NOWAIT )NODISPLAY

)PANEL NAME=UGITHIT0010 XID=(ZNONE) AID=(ZNONE)
)VARS iA.1 iA.2
)ROW 15 33 FLDS=" %+                    %+"
)END )NOWAIT )NODISPLAY

)PANEL NAME=UGITULOSE XID=(ZF3,ZENTER) AID=(ZNONE)
)VARS sTellNum
)COLORS TEXT=RED OUTPUT=WHITE
)ROW 22 08 FLDS="╔════════════════════════< You Lose >═════════════════════════╗"
)ROW 23 08 FLDS="║  %   +was the number I was thinking of. Care to Try again?  ║"
)ROW 24 08 FLDS="╚═════════════════════════════════════════════════════════════╝"
)COLORS TEXT=WHITEHI
)END )BLANK FLDS="<ENTER=New Game F3=Quitter>"

)PANEL NAME=UGITUWON XID=(ZF3,ZENTER) AID=(ZNONE)
)VARS sTellNum
)COLORS TEXT=GREEN OUTPUT=WHITE
)ROW 22 08 FLDS="╔════════════════════════< You Win >══════════════════════════╗"
)ROW 23 08 FLDS="║  Lucky Guess! %   +is correct! Care to Play again?          ║"
)ROW 24 08 FLDS="╚═════════════════════════════════════════════════════════════╝"
)COLORS TEXT=WHITEHI
)END )BLANK FLDS="<ENTER=New Game F3=Quitter>"

)PANEL NAME=UGITWAVERR XID=(ZESC) AID=(ZNONE) CLS=N
)COLORS TEXT=REDHI OUTPUT=WHITEHI
)ROW 11 08 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 12 08 FLDS="║  Unable to play '.WAV' file %pwave                         +║"
)ROW 13 08 FLDS="║  MCI Error Message:                                         ║"
)ROW 14 08 FLDS="║  %sMCIErr                                                  +║"
)ROW 15 08 FLDS="╚═════════════════════════════════════════════════════════════╝"
)COLORS TEXT=WHITEHI
)END )BLANK FLDS="<Press ESC>"

)PANEL NAME=HELP001 CLS=Y XID=(ZESC) AID=(ZNONE)
)COLORS TEXT=RED
)ROW 12 15 FLDS="Sorry, no help at this time!"
)COLORS TEXT=WHITEHI
)END )BLANK FLDS="<Press ESC to continue>"

)PANEL NAME=UGITH001 XID=(ZESC,ZENTER)
)COLORS TEXT=RED
)ROW 05 05 FLDS="╔═══════════════════════════════════════════════════════════════════╗"
)ROW 06 05 FLDS="║                                                                   ║"
)ROW 07 05 FLDS="║ The purpose of the game is to guess the digits of a 4 digit       ║"
)ROW 08 05 FLDS="║ number.  The game can be set to either have the number contain no ║"
)ROW 09 05 FLDS="║ no repeating digits (unique) or repeating digits may be allowed   ║"
)ROW 10 05 FLDS="║ (not necessarily unique).                                         ║"
)ROW 11 05 FLDS="║                                                                   ║"
)ROW 12 05 FLDS="║ To play the game, simply enter 4 digits and press enter.          ║"
)ROW 13 05 FLDS="║                                                                   ║"
)ROW 14 05 FLDS="║ Your guess is compared to my number and the results are displayed ║"
)ROW 15 05 FLDS="║ to the right of your guess. The results will be the number of     ║"
)ROW 16 05 FLDS="║ correctly guessed digits which are also in the correct position   ║"
)ROW 17 05 FLDS="║ plus the number of correctly guessed digits which are not in the  ║"
)ROW 18 05 FLDS="║ correct position.                                                 ║"
)ROW 19 05 FLDS="║                                                                   ║"
)ROW 20 05 FLDS="╚═══════════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC to end or ENTER to see more>"

)PANEL NAME=UGITH002 XID=(ZESC,ZENTER)
)COLORS TEXT=RED
)ROW 05 05 FLDS="╔═══════════════════════════════════════════════════════════════════╗"
)ROW 06 05 FLDS="║                                                                   ║"
)ROW 07 05 FLDS="║ You win if you get all 4 digits correct and in the correct order. ║"
)ROW 08 05 FLDS="║ You have ten tries at a single number. If you don't guess it in   ║"
)ROW 09 05 FLDS="║ ten tries you lose and I win.                                     ║"
)ROW 10 05 FLDS="║                                                                   ║"
)ROW 11 05 FLDS="║ There are a number of function keys and accelerator keys which    ║"
)ROW 12 05 FLDS="║ you can use to control the game.                                  ║"
)ROW 13 05 FLDS="║                                                                   ║"
)ROW 14 05 FLDS="║ F1    - Display these help panels.                                ║"
)ROW 15 05 FLDS="║ F3    - End the game.                                             ║"
)ROW 16 05 FLDS="║ ENTER - Register a guess.                                         ║"
)ROW 17 05 FLDS="║ Alt-S - Toggle the 'SOUND' (only if you have a sound card).       ║"
)ROW 18 05 FLDS="║ Alt-U - Toggle between 'Unique' and 'Not Necessarily Unique'.     ║"
)ROW 19 05 FLDS="║                                                                   ║"
)ROW 20 05 FLDS="╚═══════════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC or ENTER to end>"